home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / misc / windowhunter.lha / Bad.mod < prev    next >
Encoding:
Text File  |  1993-12-23  |  1.9 KB  |  57 lines
  1. MODULE Bad;
  2.  
  3.   FROM Windows IMPORT OpenWindow;
  4.   FROM Views IMPORT ModeSet, Modes;
  5.   FROM SYSTEM IMPORT NULL, ADR, BYTE;
  6.   FROM InOut IMPORT WriteString, WriteLn;
  7.   FROM Screens IMPORT OpenScreen, NewScreen;
  8.   FROM Libraries IMPORT OpenLibrary, CloseLibrary;
  9.   FROM Intuition IMPORT WindowPtr, ScreenFlags, ScreenFlagSet, NewWindow,
  10.         IntuitionName, IntuitionBase, ScreenPtr, CustomScreen,
  11.         WindowFlags, WindowFlagSet;
  12.  
  13.   VAR
  14.     myNS: NewScreen;
  15.     myScreen: ScreenPtr;
  16.     myNW1, myNW2: NewWindow;
  17.     myWin1, myWin2: WindowPtr;
  18.     title: ARRAY[0..15] OF CHAR;
  19.     scrTitle: ARRAY[0..15] OF CHAR;
  20.  
  21.   BEGIN
  22.     title := 'Bad Window';
  23.     scrTitle := 'Bad Screen';
  24.     IntuitionBase := OpenLibrary(IntuitionName, 0);
  25.     WITH myNS
  26.       DO
  27.     LeftEdge := 0; TopEdge:= 0; Width := 640; Height := 400;
  28.     Depth := 2;
  29.     DetailPen := BYTE(1); BlockPen := BYTE(0);
  30.     ViewModes := ModeSet {Hires, Lace}; Type := CustomScreen;
  31.     Font := NULL; DefaultTitle := ADR(scrTitle); Gadgets := NULL;
  32.     CustomBitMap := NULL;
  33.       END; (* IF *)
  34.     myScreen := OpenScreen(ADR(myNS));
  35.     WriteString('Screen Open'); WriteLn;
  36.     WITH myNW1
  37.       DO
  38.     LeftEdge := 0; TopEdge := 100; Width := 600; Height := 50;
  39.     DetailPen := BYTE(1); BlockPen := BYTE(0);
  40.     FirstGadget := NULL; CheckMark := NULL; Title := ADR(title);
  41.     Screen := myScreen; BitMap := NULL; Type:= CustomScreen;
  42.     Flags := WindowFlagSet {WindowDrag, WindowDepth};
  43.       END; (* WITH *)
  44.     WITH myNW2
  45.       DO
  46.     LeftEdge := 0; TopEdge := 0; Width := 640; Height := 50;
  47.     DetailPen := BYTE(1); BlockPen := BYTE(0);
  48.     FirstGadget := NULL; CheckMark := NULL; Title := ADR(title);
  49.     Screen := myScreen; BitMap := NULL; Type:= CustomScreen;
  50.     Flags := WindowFlagSet {WindowDrag, WindowDepth};
  51.       END; (* WITH *)
  52.     myWin1 := OpenWindow(myNW1); WriteString('Window1 OK'); WriteLn;
  53.     myWin2 := OpenWindow(myNW2); WriteString('Window2 OK'); WriteLn;
  54.     CloseLibrary(IntuitionBase);
  55.     WriteString('All done!'); WriteLn;
  56.   END Bad.
  57.